home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / monopole (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  27KB  |  763 lines
  1. 20 REM MONOPOLE CBM-64
  2. 40 REM TIM BORION & SAL OEPER-8/12/82
  3. 60 PRINT"[147]":POKE53280,0:POKE53281,0:CLR:GOSUB3520
  4. 80 PG$="  BLACK, LT. BLUE, MAROON, ORANGE,        RED, YELLOW, GREEN, DK. BLUE"
  5. 100 DIMPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)
  6. 120 DIM P$(2),PL(2),O(2),JT(2),M(2),CJ(2)
  7. 140 PRINT"[158] [170][191]  [191][146][180][170][183][183][183][180][170][191]   [180][170][183][183][183][180][170][183][183][208][170][183][183][183][180][170]    [207][183]"
  8. 160 PRINT" [170] [191][191][146] [180][170]   [180][170] [191]  [180][170]   [180][170][175][175][186][170]   [180][170]    [204]"
  9. 180 PRINT" [170]    [180][170]   [180][170]  [191] [180][170]   [180][170]   [170]   [180][170]    [207]"
  10. 200 PRINT" [170]    [180][170][175][175][175][180][170]   [191][180][170][175][175][175][180][170]   [170][175][175][175][180][170][175][175][175] [204][175]"
  11. 220 PRINT"          DURING THE GAME:"
  12. 240 PRINT"HIT  R  TO ROLL DICE OR  T  TO CHECK"
  13. 260 PRINT"YOUR BANK AND PROPERTY STATUS."
  14. 280 PRINT"ANSWER YES OR NO TO MOST QUESTIONS."
  15. 300 PRINT"TO DETERMINE A WINNER, FIRST MORTGAGE":PRINT"ALL OF YOUR PROPERTY."
  16. 320 PRINT"THE WINNER IS DETERMINED BY MONEY[146] ONLY."
  17. 340 PRINT"YOU MUST REMEMBER YOUR PROPERTY HOLDINGSBY THEIR COLOR.":GOSUB3840
  18. 360 POKE53280,1:PRINT"[147][158]"
  19. 364 PRINTTAB(5)"                               [146]"
  20. 365 PRINTTAB(5)" [158]NOW SELECT YOUR GAME OPTIONS: [146]"
  21. 366 PRINTTAB(5)"                               [146]"
  22. 380 PRINT"DO YOU WANT THE PROPERTY AUCTION RULE?"
  23. 400 INPUT "(TYPE YES OR NO AND PRESS RETURN) ";Q$
  24. 420 IFLEFT$(Q$,1)="Y"THENAF=1
  25. 440 PRINT"DO YOU WANT THE FREE PARKING JACKPOT?"
  26. 460 INPUT "(TYPE YES OR NO AND PRESS RETURN) ";Q$
  27. 480 IFLEFT$(Q$,1)="Y"THENPF=1:FP=500
  28. 500 POKE53280,0:PRINT"[147]"TAB(5)"[158]                               [146]"
  29. 520 PRINTTAB(5)"[158]                              [158] [146]"
  30. 540 PRINTTAB(5)"[158]  PLEASE WAIT WHILE I SET UP. [158] [146]"
  31. 560 PRINTTAB(5)"[158]                              [158] [146]"
  32. 580 PRINTTAB(5)"[158]                               [146]"
  33. 600 M(1)=1500:M(2)=1500:PL(1)=1:PL(2)=1:DV=2
  34. 620 CD$="":CR$=""
  35. 640 ZQ=RND(-TI):X1=8:Y1=10:X2=23:Y2=10:RX=6:RY=18:TN=832:TT=886
  36. 660 E$="                  [146]":RM$="HIT  'R' OR 'T'[146]"
  37. 680 FORI=1TO4:P(6+((I-1)*10),8)=100:NEXT:P(13,8)=75:P(29,8)=75
  38. 700 CH=INT(RND(1)*16)+1:CC=INT(RND(1)*16)+1
  39. 720 FORI=1TO41:FORJ=0TO1:READD(I,J):NEXT:NEXT
  40. 740 P$(1)="   PLAYER 1[146]":P$(2)="   PLAYER 2[146]"
  41. 760 FORI=1TO41:READPN$(I):NEXT
  42. 780 FORI=1TO41:READPT$(I):IFPT$(I)<>"P"THEN820
  43. 800 READC$(I):FORJ=1TO9:READP(I,J):NEXTJ
  44. 820 NEXTI
  45. 840 FORI=1TO16:READCH$(I):NEXT:FORI=1TO16:READCC$(I):NEXT
  46. 880 POKE54277,79:POKE54284,79:POKE54291,79
  47. 900 POKE54278,248:POKE54286,248:POKE54292,248
  48. 920 POKE54276,33:POKE54288,33:POKE54290,33
  49. 940 G(1)=54272:G(2)=54273:G(3)=54279:G(4)=54280:G(5)=54286:G(6)=54287
  50. 960 FORI=1TO6:POKEG(I),0:NEXT
  51. 980 POKE54296,15:IFPEEK(832)<>160THENGOSUB13120
  52. 1000 GOSUB2980
  53. 1020 FORPK=1TO2:POKED(1,PK-1),48+PK:O(PK)=D(1,PK-1):PT=PK:NEXT
  54. 1040 GOSUB1380:GOSUB3580:IFR1=R2THEN1040
  55. 1060 PT=(R1>R2)+2
  56. 1080 POKED(PL(1),0),49:POKED(PL(2),1),50
  57. 1100 PT$=STR$(PT)
  58. 1120 MS$="PLAYER"+PT$+" STARTS[146]"
  59. 1140 X=RX:Y=RY:Z$=MS$:GOSUB3480:FORDE=1TO1500:NEXT:Z$=E$:GOSUB3480:GOTO1560
  60. 1160 DV=2:MF=0:JB=0
  61. 1180 IFPL(PT)=41THEN1380
  62. 1200 JT(PT)=0
  63. 1220 GOSUB3580:DF=1
  64. 1240 IFDB=3THENSYSTN:GOSUB6780:SYSTT:GOSUB13300:GOTO1440
  65. 1260 FORM=1TODR:PL(PT)=PL(PT)+1
  66. 1280 POKEO(PT),160:IFPL(PT)>40THENPL(PT)=PL(PT)-40:SYSTN:GOSUB3780:SYSTT
  67. 1300 POKED(PL(PT),PT-1),48+PT
  68. 1320 O(PT)=D(PL(PT),PT-1)
  69. 1340 FORT=1TO50STEP6+PT:FORI=1TO6:POKEG(I),T:NEXT:NEXT
  70. 1360 FORI=1TO6:POKEG(I),0:NEXT:NEXTM
  71. 1380 POKED(PL(PT),PT-1),48+PT:GOSUB13300
  72. 1400 SYSTN:GOSUB3920:SYSTT:GOSUB13300:IFM(PT)<0THENGOSUB12780:SYSTT
  73. 1420 IFPL(PT)=11THENPOKED(41,PT-1),160:POKED(11,PT-1),48+PT
  74. 1440 IFJBTHENJB=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1260
  75. 1460 IFMFTHENMF=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1380
  76. 1480 IFJETHENJE=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1560
  77. 1500 IFJFTHENJF=0:POKED(PL(PT),PT-1),48+PT:POKEO(PT),160:O(PT)=D(PL(PT),PT-1)
  78. 1520 IFDBTHEN1560
  79. 1540 PT=3-PT
  80. 1560 Z$=P$(PT):X=RX:Y=RY-1:GOSUB3480
  81. 1580 Z$=RM$:X=RX:Y=RY:GOSUB3480
  82. 1600 GETBC$:IFBC$<>""THEN1600
  83. 1620 GETA$:IFA$=""THEN1620
  84. 1640 IFA$="T"THENSYSTN:GOSUB8740:SYSTT:GOSUB13300:GOTO1560
  85. 1660 Z$=E$:X=RX:Y=RY:GOSUB3480
  86. 1680 GOTO1160
  87. 1700 DATA1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
  88. 1720 DATA1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
  89. 1740 DATA1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
  90. 1760 DATA1346,1347,1264,1265,1184,1185,1104,1105
  91. 1780 DATA1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
  92. 1800 DATA1047,1048,1130,1131,1053,1054,1096,1097
  93. 1820 DATA1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
  94. 1840 DATA1697,1698,1777,1778,1857,1858,1906,1907
  95. 1860 DATA">GO<[155]","[155]MEDITERRANEAN AVE.[155]","[158]COMMUNITY CHEST[155]","[155]BALTIC AVE.[155]"
  96. 1880 DATA"[154]INCOME TAX[155]"
  97. 1900 DATA"[152]READING R.R.[155]","[159]ORIENTAL AVE.[155]","[150]CHANCE[155]","[159]VERMONT AVE.[155]"
  98. 1920 DATA"[159]CONNECTICUT AVE.[155]"
  99. 1940 DATA"[150]JUST VISITING[155]","[156]ST.CHARLES PLACE[155]","[153]ELECTRIC COMPANY[155]","[156]STATES AVE.[155]"
  100. 1960 DATA"[156]VIRGINIA AVE.[155]","[152]PENNSYLVANIA R.R.[155]","[129]ST. JAMES PLACE[155]"
  101. 1980 DATA"[158]COMMUNITY CHEST[155]"
  102. 2000 DATA"[129]TENNESSEE AVE.[155]","[129]NEW YORK AVE.[155]","[149]FREE PARKING[155]","KENTUCKY AVE.[155]"
  103. 2020 DATA"[150]CHANCE[155]","INDIANA AVE.[155]","ILLINOIS AVE.[155]","[152]B & O  R.R.[155]"
  104. 2040 DATA"[158]ATLANTIC AVE.[155]"
  105. 2060 DATA"[158]VENTNOR AVE.[155]","[153]WATER WORKS[155]","[158]MARVIN GARDENS[155]","[150]GO[155] [154]TO[155] JAIL[155]"
  106. 2080 DATA"PACIFIC AVE.[155]"
  107. 2100 DATA"N. CAROLINA AVE.[155]","[158]COMMUNITY CHEST[155]","PENNSYLVANIA AVE.[155]"
  108. 2120 DATA"[152]SHORT LINE[155]"
  109. 2140 DATA"[150]CHANCE[155]","PARK PLACE[155]","[154]LUXURY TAX[155]","BOARDWALK[155]","[150]IN JAIL[155]"
  110. 2160 DATA GO,P,BLACK,60,2,10,30,90,160,250,30,50
  111. 2180 DATA CC,P,BLACK,60,4,20,60,180,320,450,30,50
  112. 2200 DATA IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50
  113. 2220 DATA CH,P,LT. BLUE,100,6,30,90,270,400,550,50,50
  114. 2240 DATA P,LT. BLUE,120,8,40,100,300,450,600,60,50
  115. 2260 DATA JV,P,MAROON,140,10,50,150,450,625,750,70,100
  116. 2280 DATA U,P,MAROON,140,10,50,150,450,625,750,70,100
  117. 2300 DATA P,MAROON,160,12,60,180,500,700,900,80,100
  118. 2320 DATA RR,P,ORANGE,180,14,70,200,550,750,950,90,100
  119. 2340 DATA CC,P,ORANGE,180,14,70,200,550,750,950,90,100
  120. 2360 DATA P,ORANGE,200,16,80,220,600,800,1000,100,100
  121. 2380 DATA FP,P,RED,220,18,90,250,700,875,1050,110,150
  122. 2400 DATA CH,P,RED,220,18,90,250,700,875,1050,110,150
  123. 2420 DATA P,RED,240,20,100,300,750,925,1100,120,150
  124. 2440 DATA RR,P,YELLOW,260,22,110,330,800,975,1150,130,150
  125. 2460 DATA P,YELLOW,260,22,110,330,800,975,1150,130,150
  126. 2480 DATA U,P,YELLOW,280,24,120,360,850,1025,1200,140,150
  127. 2500 DATA GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200
  128. 2520 DATA P,GREEN,300,26,130,390,900,1100,1275,150,200
  129. 2540 DATA CC,P,GREEN,320,28,150,450,1000,1200,1400,160,200
  130. 2560 DATA RR,CH,P,DK. BLUE,350,35,175,500,1100,1300,1500,175,200
  131. 2580 DATA LT,P,DK. BLUE,400,50,200,600,1400,1700,2000,200,200
  132. 2600 DATAIJ
  133. 2620 DATA PAY POOR TAX  $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)
  134. 2640 DATA YOUR BUILDING AND LOAN MATURES            COLLECT $150
  135. 2660 DATA ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
  136. 2680 DATAADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50
  137. 2700 DATAGET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE
  138. 2720 DATATAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK
  139. 2740 DATAMAKE GENERAL REPAIRS  $25 FOR EACH HOUSE$100 FOR EACH HOTEL
  140. 2760 DATA ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
  141. 2780 DATA ADVANCE TOKEN TO NEAREST UTILITY        ROLL DICE & PAY 10*# SHOWN
  142. 2800 DATA GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)
  143. 2820 DATA FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER
  144. 2840 DATA RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20
  145. 2860 DATA ASSESSED FOR REPAIRS  $40 PER HOUSE     $115 PER HOTEL
  146. 2880 DATA YOU HAVE WON SECOND PRIZE IN A BEAUTY   CONTEST COLLECT $10
  147. 2900 DATA YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100
  148. 2920 DATA BANK ERROR  IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50
  149. 2940 DATA LIFE INSURANCE MATURES COLLECT $100
  150. 2960 GOTO13100
  151. 2980 PRINT"[147][149]   [160][155][165][160][160][165][160][160][165][160][160][165][160][160][152][191][191][191][155][165][160][160][165]  [165][153]WW[155][165][160][160][150][165]GTJ[146]"
  152. 3000 PRINT"[149][160]FP[160][155][165][160][160][165][150]?[155][160][165][160][160][165][160][160][152][165][160][160][155][165][160][160][165][160] [165][153][176][177][155][165][160][160][154][165]   [146]"
  153. 3020 PRINT"[149]   [160]   [155][165][160][160] [160][160][165]  [152]B&O[158][165]  [165][160][160][155][165][160][160][158] [160][160][165][197][215] [155][146]"
  154. 3040 PRINT"[163][163][163][129] [155][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [155][163][163][163][146]"
  155. 3060 PRINT"   [129] [155][165]  [206][205]                       [155][160]  [146]"
  156. 3080 PRINT"[163][163][163][129][163][155][165] [158][206]  [155][205] 1-                  [163][155][163][163][163][146]"
  157. 3100 PRINT"   [129] [155][165][206][158]C C[155][206]                      [155]   [146]"
  158. 3120 PRINT"[163][163][163][163][165][205][158]  [206][155]  2-                  [207][163][163][163][146]"
  159. 3140 PRINT"[158]CC[155]  [165] [205][206]                       [158]CC[155]  [146]"
  160. 3160 PRINT"[163][163][163][129] [155][165]   [164][164][164]            [164][164][164]      [155][163][163][163][146]"
  161. 3180 PRINT"   [129] [155][165]  [167]   [155][165]          [167]   [155][165]     [155]   [146]"
  162. 3200 PRINT"[152][191]PR[191][155][165]  [167]   [155][165] MONOPOLE[155] [167]   [155][165]   [167][152][191]SL[191][146]"
  163. 3220 PRINT"[191]  [191][155][165]  [167]   [155][165]  CBM-64[155]  [167]   [155][165]   [167][152][191]  [191][155][146]"
  164. 3240 PRINT"[163][163][163][156] [155][165]   [163][163][163]            [163][163][163]     [207][163][163][163][146]"
  165. 3260 PRINT"   [156] [155][165]                          [165][150]?[155]  [146]"
  166. 3280 PRINT"[163][163][163][156][163][155][165]                      [206][205]   [155][163][163][163][146]"
  167. 3300 PRINT"   [156] [155][165]                     [150][206]  [155][205]  [155]   [146]"
  168. 3320 PRINT"[163][153]EC[155][163][165]                    [206][150]???[155][206] [154]TAX[155][163][146]"
  169. 3340 PRINT"    [165]                    [205][150]  [206][155]  [165]   [146]"
  170. 3360 PRINT"[163][163][163][156] [155][165]                     [205][206]    [155][163][163][163][146]"
  171. 3380 PRINT"   [156] [155][165]                           [155]   [146]"
  172. 3400 PRINT"[150][163][155][207][163][163][159]   [165]  [155][207][163][163][159]   [152][207]RR[155][207][163][163][146]   [207][163][163][146]   [207][163][163][163][146]"
  173. 3420 PRINT"[150] [155][165]  [165]  [165]  [165][150]?[155][160][165][160][160][152][165][160][160][155][165][160][160][165][160][160][165]  [165]  [165]GO [146]"
  174. 3440 PRINT"[150] [163][163][163][155][165]  [165]  [165]  [165]  [152][191][191][191][154]TAX[155][165]  [165][158]CC[155][165]  [165]_[192] [146]"
  175. 3460 RETURN
  176. 3480 PRINT"[155]";LEFT$(CR$,X);LEFT$(CD$,Y);Z$;""
  177. 3500 RETURN
  178. 3520 DC$(1)="   [157][157][157] [209] [157][157][157]   [146]":DC$(2)="  [209][157][157][157]   [157][157][157][209]  [146]"
  179. 3540 DC$(3)="[209]  [157][157][157] [209] [157][157][157]  [209][146]":DC$(4)="[209] [209][157][157][157]   [157][157][157][209] [209][146]"
  180. 3560 DC$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][146]":DC$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209][146]":RETURN
  181. 3580 CT=0
  182. 3600 R1=INT(RND(1)*6)+1:R2=INT(RND(1)*6)+1:DR=R1+R2
  183. 3620 FORI=1TO6:POKEG(I),DR*10:NEXT
  184. 3640 PRINT"";LEFT$(CR$,X1);LEFT$(CD$,Y1);DC$(R1)
  185. 3660 PRINT"";LEFT$(CR$,X2);LEFT$(CD$,Y2);DC$(R2)
  186. 3680 FORI=1TO6:POKEG(I),0:NEXT
  187. 3700 CT=CT+1:IFCT<7THENFORDELAY=1TO75:NEXT:GOTO3600
  188. 3720 IFR1=R2THENDB=DB+1:GOTO3760
  189. 3740 DB=0
  190. 3760 RETURN
  191. 3780 PRINT"[147]":PRINT
  192. 3800 PRINT" COLLECT $200 AS YOU PASS  [172][162][172][187][157][157][157][157][157][188][190][188][190][146]"
  193. 3820 M(PT)=M(PT)+200:PRINT:PRINT:PRINT
  194. 3840 PRINT"HIT ANY KEY TO CONTINUE[146]"
  195. 3860 GETW$:IFW$<>""THEN3860
  196. 3880 GETK$:IFK$=""THEN3880
  197. 3900 RETURN
  198. 3920 POKE198,0:PT$=PT$(PL(PT))
  199. 3940 IFPT$="P"THEN4180
  200. 3960 IFPT$="RR"THEN5160
  201. 3980 IFPT$="GO"THENRETURN
  202. 4000 IFPT$="U"THEN5880
  203. 4020 IFPT$="FP"THEN6500
  204. 4040 IFPT$="JV"THENRETURN
  205. 4060 IFPT$="GTJ"THEN6780
  206. 4080 IFPT$="IT"THEN7000
  207. 4100 IFPT$="LT"THEN6960
  208. 4120 IFPT$="CC"THEN7040
  209. 4140 IFPT$="CH"THEN7520
  210. 4160 IFPT$="IJ"THEN8340
  211. 4180 PRINT"[147]";TAB(15);"TITLE DEED"
  212. 4200 IFGFTHEN4280
  213. 4220 PRINT" PLAYER"PT
  214. 4240 PO=3-PT
  215. 4260 PL=PL(PT):P7=PT
  216. 4280 PRINTTAB(20-(LEN(PN$(PL))-1)/2)"";PN$(PL)"[146]"
  217. 4300 PRINTLEFT$(PN$(PL),1):QR=PEEK(646):POKE53280,QR:PRINT"[145][145]"
  218. 4320 PRINT
  219. 4340 PRINT"                 RENT $";P(PL,2)
  220. 4360 PRINT"           WITH 1 HOUSE  $";P(PL,3)
  221. 4380 PRINT"           WITH 2 HOUSES  ";P(PL,4)
  222. 4400 PRINT"           WITH 3 HOUSES  ";P(PL,5)
  223. 4420 PRINT"           WITH 4 HOUSES  ";P(PL,6)
  224. 4440 PRINT"           WITH HOTEL  $";P(PL,7)
  225. 4460 PRINT
  226. 4480 PRINT"           MORTAGE VALUE  $";P(PL,8)
  227. 4500 PRINT"          HOUSES COST $";P(PL,9);"EACH"
  228. 4520 PRINT"      HOTELS, $";P(PL,9);". PLUS 4 HOUSES"
  229. 4540 IFGFTHENPRINT:PRINT:GOSUB3840:POKE53280,0:RETURN
  230. 4560 PRINT:FORI=1TO41:IFC$(PL)=C$(I)ANDI<>PLTHENGOSUB4600
  231. 4580 NEXT:GOTO4640
  232. 4600 IFPS(I)THENPRINT" "PN$(I)"  OWNED BY PLAYER #"PS(I):RETURN
  233. 4620 PRINT" "PN$(I)" STILL FOR SALE.":RETURN
  234. 4640 PRINT
  235. 4660 IFMG(PL)=1THENPRINT" MORTAGED FOR $"P(PL,8)
  236. 4680 PRINT" COST   $";P(PL,1)
  237. 4700 IFPS(PL)=0THEN4800
  238. 4720 PRINT" OWNED[146] BY PLAYER"PS(PL):IFH(PL)THENPRINT"WITH";
  239. 4740 IFH(PL)<5THENPRINTH(PL)"HOUSES."
  240. 4760 IFH(PL)=5THENPRINT" A HOTEL"
  241. 4780 GOTO4900
  242. 4800 PRINT" YOU HAVE $";M(P7)
  243. 4820 PRINT" DO YOU WISH TO BUY THIS PROPERTY";:INPUT"  [191][157][157][157]";A$:A$=LEFT$(A$,1)
  244. 4840 IFA$="N"THEN5020
  245. 4860 IFA$<>"Y"THENPRINT"[145][145]":GOTO4820
  246. 4880 PRINT" OK YOU BOUGHT ";PN$(PL)"":M(P7)=M(P7)-P(PL,1):PS(PL)=PT:GOTO5000
  247. 4900 OW=P(PL,H(PL)+2):IFPS(PL)=PTTHEN5000
  248. 4920 IFMG(PL)THEN5000
  249. 4940 P5=PO:P6=PS(PL):GOSUB5040:IFOATHENIFH(PL)=0THENOW=OW*2
  250. 4960 M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW:PRINT" YOU OWE $";OW
  251. 4980 M(PS(PL))=M(PS(PL))+OW
  252. 5000 GOSUB3840:POKE53280,0:RETURN
  253. 5020 GOSUB12460:GOTO5000
  254. 5040 MG=0:OA=0:PC=0:FORI=1TO41:IFC$(PL)=C$(I)ANDPS(I)=P5THENPC=PC+1:IFMG(I)THENMG=MG+1
  255. 5060 NEXT
  256. 5080 IFPC=2ANDC$(PL)="BLACK"THENOA=1:RETURN
  257. 5100 IFPC=2ANDC$(PL)="DK. BLUE"THENOA=1:RETURN
  258. 5120 IFPC=3THENOA=1:RETURN
  259. 5140 RETURN
  260. 5160 PRINT"[147]":PL=PL(PT)
  261. 5180 PRINT"PLAYER"PT
  262. 5200 PRINT"                   [150][216][152] [172][146]"
  263. 5220 PRINT"                      [146]"
  264. 5240 PRINT"                  [206][149][215] [215]"
  265. 5260 PRINT
  266. 5280 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
  267. 5300 POKE54276,129:POKE54288,17:POKE54290,17
  268. 5320 KO=129:FORT=1TO2:FORI=1TO6:POKEG(I),KO:NEXT:FORDL=1TO400:NEXT
  269. 5340 FORI=1TO6:POKEG(I),0:NEXT:FORDL=1TO60:NEXT:NEXT
  270. 5360 POKE54276,33:POKE54288,33:POKE54290,33     
  271. 5380 PRINT:PRINT"RENT                     $25"
  272. 5400 PRINT"IF 2 R.R.'S ARE OWNED     50"
  273. 5420 PRINT"IF 3 R.R.'S ARE OWNED    100"
  274. 5440 PRINT"IF 4 R.R.'S ARE OWNED    200"
  275. 5460 PRINT
  276. 5480 PRINT"MORTAGE VALUE            $100"
  277. 5500 PRINT:IFMG(PL)=1THENPRINT"MORTAGED FOR $100":GOTO5860
  278. 5520 PRINT"COST   $200"
  279. 5540 PRINT:FORI=1TO41:IFPT$(I)="RR"THENGOSUB5580
  280. 5560 NEXT:GOTO5620
  281. 5580 IFPS(I)THENPRINTPN$(I)" OWNED BY PLAYER #";PS(I):RETURN
  282. 5600 PRINTPN$(I)" STILL FOR SALE.":RETURN
  283. 5620 IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO5780
  284. 5640 PRINT"YOU HAVE $"M(PT)
  285. 5660 PRINT"DO YOU WISH TO BUY IT";:INPUT"  [191][157][157][157]";B$:B$=LEFT$(B$,1)
  286. 5680 IFB$="N"THENGOSUB12460:GOTO5860
  287. 5700 IFB$<>"Y"THENPRINT"[145][145]":GOTO5660
  288. 5720 M(PT)=M(PT)-200:PS(PL)=PT
  289. 5740 PRINT"OK YOU BOUGHT IT"
  290. 5760 GOTO5860
  291. 5780 OW=0:O7=0
  292. 5800 IFPS(PL)=PTTHEN5860
  293. 5820 OW=25:FORI=6TO36STEP10:IFPT$(I)="RR"ANDPS(I)=PS(PL)THENOW=OW*2
  294. 5840 NEXT:OW=OW/DV:PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
  295. 5860 GOSUB3840:RETURN
  296. 5880 PRINT"[147]"
  297. 5900 PRINT"PLAYER"PT
  298. 5920 PRINT"            [158][206][163][205]     [152][215][209][215]    "
  299. 5940 PRINT"            [158][205][150]^[158][206]    [152][171][192][177][192][192][192][201] "
  300. 5960 PRINT"             [158][165][165]    [152][171][192][192][192][192][201][200] "
  301. 5980 PRINT"             [166]          [173][189] ":PRINT
  302. 6000 PL=PL(PT)
  303. 6020 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
  304. 6040 PRINT:PRINT"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"
  305. 6060 PRINT
  306. 6080 PRINT"IF BOTH OWNED PAY 10 [214] AMOUNT ON DICE"
  307. 6100 D1=INT(RND(1)*6)+1:D2=INT(RND(1)*6)+1
  308. 6120 IFDFTHEND1=R1:D2=R2
  309. 6140 PRINT:PRINT"MORTAGE VALUE  $75":PRINT
  310. 6160 IFMG(PL)=1THENPRINT"MORTAGED FOR $75":GOTO6480
  311. 6180 IFPS(42-PL)THENPRINTPN$(42-PL)" OWNED BY PLAYER"PS(42-PL):GOTO6220
  312. 6200 PRINTPN$(42-PL)" STILL FOR SALE."
  313. 6220 PRINT:IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO6380
  314. 6240 PRINT"YOU HAVE $"M(PT)
  315. 6260 INPUT"DO YOU WISH TO BUY IT  [191][157][157][157]";B$:B$=LEFT$(B$,1)
  316. 6280 IFB$="N"THENGOSUB12460:GOTO6480
  317. 6300 IFB$<>"Y"THENPRINT"[145][145]":GOTO6260
  318. 6320 PRINT"OK YOU BOUGHT ";PN$(PL)""
  319. 6340 M(PT)=M(PT)-150
  320. 6360 PS(PL)=PT:GOTO6480
  321. 6380 IFPS(PL)=PTTHEN6480
  322. 6400 PRINT"DICE SHOW"D1"AND"D2"."
  323. 6420 MT=4:IFPS(13)=PS(PL)ANDPS(29)=PS(PL)THENMT=10
  324. 6440 IFDF=0THENMT=10
  325. 6460 OW=MT*(D1+D2):PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
  326. 6480 MT=0:GOSUB3840:RETURN
  327. 6500 PRINT"[147]"
  328. 6520 PRINT"                 [129]FREE
  329. 6540 [153]"                (null)LENLENLENLENLENRIGHT$"
  330. 6560 [153]"                PEEK OPENORTAN^ LEFT$
  331. 6580 PRINT"                [221] [159][173][192][189] [221]
  332. 6600 [153]"                LEFT$ VERIFY(null)LENRIGHT$ PEEK
  333. 6620 PRINT"              [213][192][189] [149][194][152][209][149][200] [173][192][201]
  334. 6640 [153]"              (null)   VERIFYMID$ASC(null)   (null)
  335. 6660 PRINT"              [173][192][152][168][192][192][192][192][192][152][168][192][189]
  336. 6680 [153]"                PRINT#SPC(     SPC(
  337. 6700 PRINT:PRINT"                [129]PARKING":PRINT
  338. 6720 IFPF=0THENGOSUB3840:RETURN
  339. 6740 PRINT:PRINT"       YOU GET THE FREE PARKING"
  340. 6760 PRINT"          JACKPOT OF $"FP"!":M(PT)=M(PT)+FP:FP=0:PRINT:GOSUB3840:RETURN
  341. 6780 PRINT"[147]";TAB(15);"GO TO JAIL"
  342. 6800 IFDB=3THENPRINT:PRINT" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":PRINT
  343. 6820 PRINTTAB(16);"[151][176][178][178][178][178][178][178][174]":FORI=1TO5:PRINTTAB(16);"[221][221][221][221][221][221][221][221]":NEXT
  344. 6840 PRINTTAB(16);"[173][177][177][177][177][177][177][189]":PRINT:PL(PT)=41:JF=1:DB=0
  345. 6860 FORKO=1TO3:FORT=60TO110STEP1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT
  346. 6880 FORDL=1TO10:NEXT
  347. 6900 FORT=110TO60STEP-1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT:NEXT
  348. 6920 FORI=1TO6:POKEG(I),0:NEXT
  349. 6940 PRINT"";:GOSUB3840:RETURN
  350. 6960 PRINT"[147]";TAB(15);"LUXURY TAX":PRINT:PRINTTAB(16);"PAY $75"
  351. 6980 PRINT:PRINT:PRINT:M(PT)=M(PT)-75:FP=FP+75:GOSUB3840:RETURN
  352. 7000 PRINT"[147]";TAB(15);"INCOME TAX":PRINT:PRINTTAB(16);"PAY $200"
  353. 7020 PRINT:PRINT:PRINT:M(PT)=M(PT)-200:FP=FP+200:GOSUB3840:RETURN
  354. 7040 CC=CC+1:IFCC>16THENCC=CC-16
  355. 7060 PO=3-PT:CC$=CC$(CC):IFCC=1ANDCJ(1)THENCC=CC+1:CC$=CC$(CC)
  356. 7080 PRINT"[147]           [158]COMMUNITY CHEST":PRINTCC$""
  357. 7100 IFCC=1THENCJ(1)=PT
  358. 7120 IFCC=2THENGOSUB3840:GOTO6780
  359. 7140 IFCC=3THENPL(PT)=1:MF=1:GOSUB3840:GOSUB3780:RETURN
  360. 7160 IFCC=4THENM(PT)=M(PT)+45
  361. 7180 IFCC=5THENM(PT)=M(PT)+50:M(PO)=M(PO)-50
  362. 7200 IFCC=6THENM(PT)=M(PT)+25
  363. 7220 IFCC=7THENM(PT)=M(PT)-150:FP=FP+150
  364. 7240 IFCC=8THENM(PT)=M(PT)+20
  365. 7260 IFCC=9THENGOSUB7440
  366. 7280 IFCC=10THENM(PT)=M(PT)+10
  367. 7300 IFCC=11THENM(PT)=M(PT)+100
  368. 7320 IFCC=12THENM(PT)=M(PT)+100
  369. 7340 IFCC=13THENM(PT)=M(PT)-100
  370. 7360 IFCC=14THENM(PT)=M(PT)+200
  371. 7380 IFCC=15THENM(PT)=M(PT)-50
  372. 7400 IFCC=16THENM(PT)=M(PT)+100
  373. 7420 GOSUB3840:RETURN
  374. 7440 YP=0:FORI=1TO40
  375. 7460 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(40*H(I))
  376. 7480 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+115
  377. 7500 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP+YP:RETURN
  378. 7520 CH=CH+1:IFCH>16THENCH=CH-16
  379. 7540 PO=3-PT:CH$=CH$(CH):IFCH=8ANDCJ(2)THENCH=CH+1:CH$=CH$(CH)
  380. 7560 PRINT"[147]          [150]? ? CHANCE ? ?":PRINTCH$""
  381. 7580 IFCH=1THENM(PT)=M(PT)-15:FP=FP+15
  382. 7600 IFCH=2THENGOSUB3840:GOTO6780
  383. 7620 IFCH=3THENPL(PT)=1:MF=1:GOSUB3840:GOSUB3780:RETURN
  384. 7640 IFCH=4THENM(PT)=M(PT)+150
  385. 7660 IFCH=5THENGOSUB7920:MF=1
  386. 7680 IFCH=6THENGOSUB8000:MF=1
  387. 7700 IFCH=7THENM(PT)=M(PT)+50
  388. 7720 IFCH=8THENCJ(2)=PT
  389. 7740 IFCH=9THENM(PT)=M(PT)-50:M(PO)=M(PO)+50
  390. 7760 IFCH=10THENGOSUB8040:MF=1
  391. 7780 IFCH=11THENGOSUB8080:MF=1
  392. 7800 IFCH=12THENPL(PT)=PL(PT)-3:MF=1
  393. 7820 IFCH=13THENGOSUB8120:MF=1
  394. 7840 IFCH=14THENGOSUB8160
  395. 7860 IFCH=15THENGOSUB7920:MF=1
  396. 7880 IFCH=16THENGOSUB8240:MF=1
  397. 7900 GOSUB3840:RETURN
  398. 7920 PL(PT)=PL(PT)+1:IFPL(PT)>40THENGOSUB13440:PL(PT)=PL(PT)-40
  399. 7940 IFPT$(PL(PT))="RR"THEN7980
  400. 7960 GOTO7920
  401. 7980 DV=1:RETURN
  402. 8000 IFPL(PT)>25THENGOSUB13440
  403. 8020 PL(PT)=25:RETURN
  404. 8040 IFPL(PT)>12THENGOSUB13440
  405. 8060 PL(PT)=12:RETURN
  406. 8080 IFPL(PT)>6THENGOSUB13440
  407. 8100 PL(PT)=6:RETURN
  408. 8120 PL(PT)=40:RETURN
  409. 8140 RETURN
  410. 8160 DF=0:YP=0:FORI=1TO40
  411. 8180 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(25*H(I))
  412. 8200 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+100
  413. 8220 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP=YP:RETURN
  414. 8240 PL(PT)=PL(PT)+1
  415. 8260 IFPL(PT)>40THENGOSUB13440:PL(PT)=PL(PT)-40
  416. 8280 IFPT$(PL(PT))="U"THEN8320
  417. 8300 GOTO8240
  418. 8320 MF=1:RETURN
  419. 8340 PRINT"[147]"
  420. 8360 JT(PT)=JT(PT)+1
  421. 8380 PRINT"PLAYER #"PT"IS IN JAIL"
  422. 8400 PRINT:PRINT"YOU HAVE BEEN IN JAIL "JT(PT)" TURNS"
  423. 8420 PRINT"YOU MAY:  1.  PAY $50"
  424. 8440 PRINT"          2.  USE  A 'GET OUT OF JAIL                 FREE' CARD."
  425. 8460 PRINT"          3.  TRY TO ROLL DOUBLES."
  426. 8480 INPUT"PICK A NUMBER (1,2 OR 3) <RETURN>";I:IFI<1ORI>3THEN8480
  427. 8500 IFI=1THENM(PT)=M(PT)-50:FP=FP+50:PL(PT)=11:GOSUB3840:JE=1:RETURN
  428. 8520 IFI=2ANDCJ(1)=PTTHENCJ(1)=0:PL(PT)=11:GOSUB3840:JE=1:RETURN
  429. 8540 IFI=2ANDCJ(2)=PTTHENCJ(2)=0:PL(PT)=11:GOSUB3840:JE=1:RETURN
  430. 8560 IFI=2THENPRINT"YOU DON'T HAVE A CARD":GOTO8480
  431. 8580 IFI=3THENGOSUB3580:IFDBTHEN8700
  432. 8600 PRINT"YOU DIDN'T ROLL DOUBLES."
  433. 8620 IFJT(PT)>2THENPRINT"YOU MUST PAY THE $50":M(PT)=M(PT)-50:PL(PT)=11:JB=1
  434. 8640 IFJT(PT)>2THENGOSUB3840:FP=FP+50:RETURN
  435. 8660 GOSUB3840:RETURN
  436. 8680 IFPL(PT)=11THENGOSUB3840:JE=1:RETURN
  437. 8700 PRINT"YOU MADE IT OUT!!!":PL(PT)=11:GOSUB3840:JB=1:DB=0:RETURN
  438. 8720 GOTO12780
  439. 8730 POKE53280,1
  440. 8740 POKE53280,1
  441. 8741 PRINT"[147]":IFPFTHENPRINT"MONEY IN FREE PARKING JACKPOT $";FP;""
  442. 8760 PRINTTAB(17)"PLAYER 1 HAS $";M(1):PRINTTAB(17)"PLAYER 2 HAS $";M(2);""
  443. 8780 PRINTTAB(15);"         [146]"
  444. 8800 PRINTTAB(15);" [158]OPTIONS [146]"
  445. 8820 PRINTTAB(15);"         [146]"
  446. 8840 PRINT" R = REVIEW PROPERTIES OWNED BY PLAYER"
  447. 8860 PRINT" L = LIST ALL PROPERTIES AND OWNERS"
  448. 8880 PRINT" B = BUILD HOUSES AND HOTELS"
  449. 8900 PRINT" S = SELL PROPERTIES TO OTHER PLAYER"
  450. 8920 PRINT" M = MORTAGE PROPERTIES AND SELL HOUSES[157][157]"
  451. 8940 PRINT" D = DISPLAY TITLE DEEDS IN COLOR"
  452. 8960 PRINT" Q = RETURN TO THE PLAYING BOARD"
  453. 8980 PRINT" X = END THE GAME AND TELL US WHO WINS"
  454. 8990 PRINT:PRINT"PLAYER";PT"UP."
  455. 9000 INPUT"PICK A LETTER AND PRESS RETURN[146] [191][157]";IN$:C$=LEFT$(IN$,1)
  456. 9010 POKE53280,0
  457. 9020 IFC$="[191]"THEN9000
  458. 9040 IFC$="R"THENGOSUB9220
  459. 9060 IFC$="L"THENGOSUB9560
  460. 9080 IFC$="B"THENGOSUB9860
  461. 9100 IFC$="S"THENGOSUB10640
  462. 9120 IFC$="M"THENGOSUB11320
  463. 9140 IFC$="D"THENGOSUB13380
  464. 9160 IFC$="Q"THENRETURN
  465. 9180 IFC$="X"THEN12940
  466. 9200 GOTO8740
  467. 9205 POKE53280,1:PRINT"[147]"
  468. 9220 PRINT"REVIEW PROPERTIES FOR WHICH PLAYER":INPUT"(1 OR 2)";PN
  469. 9240 IFPN<1ORPN>2THEN9220
  470. 9260 POKE53280,1:PRINT"[147]"
  471. 9280 PRINTTAB(6)"PROPERTIES FOR PLAYER ";PN
  472. 9300 PRINT
  473. 9320 FORI=1TO40:PO$="":IFPS(I)=PNTHENPRINTPN$(I);
  474. 9340 IFPS(I)<>PNTHEN9480
  475. 9360 IFPT$(I)<>"P"THEN9440
  476. 9380 PRINTSPC(20-(LEN(PN$(I))-2));" -";:IFH(I)<5THENPO$=STR$(H(I))+" HS"
  477. 9400 IFH(I)=5THENPO$=" HOTEL[146]"
  478. 9420 PO$=PO$+"/$"+MID$(STR$(P(I,H(I)+2)),2)
  479. 9440 IFMG(I)=1THENPO$="- MORTAGED"
  480. 9460 PRINTPO$
  481. 9480 NEXT
  482. 9500 PRINT:IFCJ(1)=PNORCJ(2)=PNTHENPRINT"GET OUT OF JAIL FREE CARD."
  483. 9520 PRINT"PLAYER"PN"HAS $";M(PN);""
  484. 9540 PRINT:GOSUB3840:POKE53280,0:RETURN
  485. 9560 PRINT"[147]"
  486. 9580 TT$="NAME                            OWNER/[157][157][157][157][157][157]#HOUSES":PRINTTT$
  487. 9600 FORK=1TO40:IFPT$(K)<>"P"ANDPT$(K)<>"RR"ANDPT$(K)<>"U"THEN9780
  488. 9620 PRINTPN$(K)"";TAB(21);
  489. 9640 PRINTTAB(33)
  490. 9660 P$=STR$(PS(K)):PP$=MID$(STR$(H(K)),2):IFH(K)>4THENPP$="H"
  491. 9680 IFPT$(K)<>"P"THENPP$="X"
  492. 9700 IFMG(K)THENPP$="MG[146]"
  493. 9720 P$=P$+" -"+PP$
  494. 9740 IFPS(K)=0THENP$=" NONE"
  495. 9760 PRINTP$
  496. 9780 IFK=20THENPRINT:GOSUB3840:PRINT"[147]":PRINTTT$
  497. 9800 NEXTK
  498. 9820 PRINT:GOSUB3840
  499. 9840 RETURN
  500. 9860 PRINT"[147]"
  501. 9880 HO=0
  502. 9900 GOSUB 13940
  503. 9910 FORI8=1TO41:IFC$=LEFT$(C$(I8),LEN(C$))THENPL=I8:GOTO9920
  504. 9915 NEXTI8
  505. 9920 P7=PT
  506. 9940 P5=P7:GOSUB5040:IFMGTHENOA=0
  507. 9960 IFOATHEN10020
  508. 9980 PRINT"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";
  509. 10000 PRINT" IS MORTAGED.":GOSUB3840:RETURN
  510. 10020 PRINT"   PROPERTY NAME    # OF HOUSES(5=HOTEL)"
  511. 10040 HS=0:FORI=PLTOPL+4:IFC$=C$(I)THENPRINTPN$(I)"";TAB(30);H(I):HS=HS+H(I)
  512. 10060 NEXT
  513. 10080 PRINT:PRINT"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"
  514. 10100 PRINT"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)*5)
  515. 10120 PRINT
  516. 10140 PRINT"YOU HAVE $"M(PT)
  517. 10160 PRINT"HOTELS AUTOMATICALLY ADDED AFTER 4TH    HOUSE"
  518. 10180 PRINT"HOW  MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX=((5*PC)-HS):PRINTMX")"
  519. 10200 INPUTHN:IFHN>MXTHENGOTO10180
  520. 10220 H7=INT(HN/PC):H8=HN-(H7*PC)
  521. 10240 IFM(P7)<(HN*P(PL,9))THENPRINT"YOU DON'T HAVE ENOUGH MONEY!":GOTO10180
  522. 10260 IFHN=0THENPRINT"OK":GOSUB3840:RETURN
  523. 10280 M(P7)=M(P7)-(HN*P(PL,9)):FORE=PLTOPL+4:IFC$=C$(E)THENH(E)=H(E)+H7
  524. 10300 NEXT
  525. 10320 IFH8THEN10360
  526. 10340 GOTO10620
  527. 10360 PRINT"YOU HAVE"H8"HOUSES LEFT OVER"
  528. 10380 PRINT:F1=0:FORF=PLTOPL+4:IFC$=C$(F)THENF1=F1+1:PRINTF1,PN$(F);"  "H(F)
  529. 10400 NEXT:PRINT:FORG=1TOH8
  530. 10420 PRINT"WHERE DO YOU WANT HOUSE #"G;:INPUTHL
  531. 10440 IFHL=HOTHENPRINT"CAN'T":GOTO10420
  532. 10445 F1=0
  533. 10460 FORF=PLTOPL+3:IFC$=C$(F)THENF1=F1+1:IFF1=HLTHENF9=F
  534. 10480 NEXTF
  535. 10500 IFF9=0THENPRINT"NO SUCH NUMBER":GOTO10420
  536. 10520 H2=0:FORF=PLTOPL+3:IFC$=C$(F)THENIFH(F9)>H(F)THENH2=H2+1
  537. 10540 NEXT
  538. 10560 IFH2THENPRINT"ILLEGAL DISTRIBUTION OF HOUSES!":GOTO10420
  539. 10580 HO=HL:H(F9)=H(F9)+1
  540. 10600 NEXTG
  541. 10620 PRINT"DONE":GOSUB3840:RETURN
  542. 10640 POKE53280,1:PRINT"[147]"
  543. 10655 INPUT"WHICH PLAYER WANTS TO SELL (1 OR 2) ";P1
  544. 10660 IFP1=0THENGOSUB3840:RETURN
  545. 10680 P2=P1+1:IFP2>2THENP2=P2-2
  546. 10700 PRINT:PRINT"IS IT A PROPERTY OR RAILROAD/UTILITY?"
  547. 10710 PRINT"TYPE  P  OR  R  AND PRESS RETURN[146]: ";
  548. 10712 POKE198,0
  549. 10714 GETQ$:IFQ$="P"ORQ$="R"THEN10740
  550. 10716 PRINT" [146][157]";:FORI=1TO200:NEXT
  551. 10718 GETQ$:IFQ$="P"ORQ$="R"THEN10740
  552. 10720 PRINT" [157]";:FORI=1TO200:NEXT
  553. 10730 GOTO10714
  554. 10740 IFQ$<>"P"ANDQ$<>"R"THEN10700
  555. 10750 PRINTQ$:PRINT:PRINT:FORI=1TO200:NEXT
  556. 10752 GETRE$:IFRE$<>CHR$(13)THEN10752
  557. 10753 PRINT:PRINT:FORI=1TO200:NEXT
  558. 10754 IFQ$="R"THENPOKE53280,0:GOTO11080
  559. 10755 IFQ$="0"THENRETURN
  560. 10760 GOSUB 13940
  561. 10770 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:GOTO10780
  562. 10775 NEXTI6
  563. 10780 PRINT"#     PROPERTY";TAB(34);"OWNER"
  564. 10800 HO=0:CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:PRINTCT"   "PN$(I)"";TAB(35);PS(I)
  565. 10820 IFH(I)THENHO=1
  566. 10840 NEXT
  567. 10860 PRINT"WHAT PROPERTY NUMBER DOES PLAYER"P1"WANT":INPUT"TO SELL";TP
  568. 10900 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
  569. 10920 NEXT
  570. 10940 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO10860
  571. 10960 IFPS(T4)<>P1THENPRINT"PLAYER #"P1"DOES NOT OWN IT.":GOSUB3840:RETURN
  572. 10980 IFHOTHENPRINT"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":GOTO11060
  573. 11000 INPUT "WHAT IS THE AGREED SELLING PRICE";SP
  574. 11020 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(T4)=P2
  575. 11040 PRINT"PLAYER #"P2"BOUGHT "PN$(T4)"":PRINT"FOR $"SP
  576. 11060 PRINT:GOSUB3840:RETURN
  577. 11080 PRINT"#    RIALROAD/UTILITY";TAB(30);"OWNER"
  578. 11100 FORI=6TO36STEP10:N=N+1:PRINTN"  "PN$(I)"";TAB(35);PS(I):NEXT:N=0
  579. 11120 PRINT" 5   "PN$(13)"";TAB(35);PS(13):PRINT" 6   "PN$(29)"";TAB(35);PS(29)
  580. 11140 PRINT"WHAT RAILROAD/UTILITY NUMBER IS FOR SALE":INPUTNM:IFNM=0THENRETURN
  581. 11160 IFNM<1ORNM>6THEN11140
  582. 11180 IFNM=5ANDPS(13)=P1THENSN=13:GOTO11260
  583. 11200 IFNM=6ANDPS(29)=P1THENSN=29:GOTO11260
  584. 11220 IFNM>0ANDNM<5THENSN=6+((NM-1)*10):IFPS(SN)=P1THENGOTO11260
  585. 11240 PRINT"YOU DON'T OWN IT.":GOSUB3840:RETURN
  586. 11260 INPUT"AGREED PRICE";SP
  587. 11280 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(SN)=P2
  588. 11300 GOSUB3840:RETURN
  589. 11320 POKE53280,1:PRINT"[147]":PRINTTAB(5)"[158]MORTGAGE AND HOUSE SALES"
  590. 11330 PRINTTAB(5)"0  RETURN TO MAIN MENU":PRINTTAB(5)"1  MORTAGE PROPERTY
  591. 11340 [153][163]5)"2  MORTAGE RAILROAD":[153][163]5)"3  MORTAGE UTILITY"
  592. 11360 [153][163]5)"4  LIFT MORTAGE(AT 10% INTEREST)"
  593. 11370 [153][163]5)"5  SELL HOUSES"
  594. 11380 [133]"PICK A NUMBER (0,1,2,3,4 OR 5) ";GG
  595. 11390 [153]:[153]:[153]:[151]53280,0
  596. 11400 [139]GG[179]0[176]GG[177]5[167]11320
  597. 11420 [139]GG[178]0[167][141]3840:[142]
  598. 11440 [145]GG[141]11480,11860,12040,12200,13460
  599. 11460 [137]11320
  600. 11480 [141] 13940
  601. 11490 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:[137]11500
  602. 11495 [130]I6
  603. 11500 CM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CM[178]CM[170]H(I)
  604. 11520 [130]
  605. 11540 [139]CM[167][153]"CAN'T MORTAGE PROPERTIES WITH HOUSES    STILL ON THAT GROUP.":[137]11840
  606. 11560 [153]"#     PROPERTY";[163]26);"OWNER"
  607. 11580 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[179][177]C$(I)[167]11640
  608. 11600 CT[178]CT[170]1:[153]CT"   "PN$(I)"";[163]27)PS(I);:PP$[178]"":[139]MG(I)[167]PP$[178]"MORTAGED"
  609. 11620 [153]PP$
  610. 11640 [130]
  611. 11660 [153]:[153]"WHAT PROPERTY NUMBER IS TO BE MORTAGED";:[133]TP
  612. 11680 [139]TP[178]0[167][141]3840:[142]
  613. 11700 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
  614. 11720 [130]
  615. 11740 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]11660
  616. 11760 [139]PS(T4)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
  617. 11780 [139]MG(T4)[178]1[167][153]"ALREADY MORTAGED":[137]11660
  618. 11800 [153]:[153]"OK":MG(T4)[178]1
  619. 11820 [153]"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)[178]M(PT)[170]P(T4,8)
  620. 11840 [141]3840:[142]
  621. 11860 [153]"#    RAILROAD"[163]26)"OWNER"
  622. 11870 RC[178]0:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[167]RC[178]RC[170]1
  623. 11875 [153]RC"  "PN$(I);[163]27);PS(I)
  624. 11880 [130]
  625. 11900 [133]"WHAT RAILROAD NUMBER WILL BE MORTGAGED";RG
  626. 11920 [139]RG[179]1[176]RG[177]4[167]11900
  627. 11940 RG[178]6[170]((RG[171]1)[172]10)
  628. 11960 [139]PS(RG)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
  629. 11980 [139]MG(RG)[178]1[167][153]"ALREADY MORTAGED.":[141]3840:[142]
  630. 12000 MG(RG)[178]1:[153]"YOU GET $100 FOR MORTAGE.":M(PT)[178]M(PT)[170]100
  631. 12020 [141]3840:[142]
  632. 12040 U(1)[178]13:U(2)[178]29
  633. 12050 [153]"#    UTILITY"[163]26)"OWNER"
  634. 12060 [129]I[178]1[164]2:[153]I;"  ";PN$(U(I));[163]27);PS(U(I)):[130]
  635. 12080 [133]"WHAT UTILITY NUMBER WILL BE MORTGAGED";UM
  636. 12100 [139]UM[179]1[176]UM[177]2[167]12080
  637. 12120 [139]PS(U(UM))[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
  638. 12140 [139]MG(U(UM))[178]1[167][153]"ALREADY MORTAGED.":[141]3840:[142]
  639. 12160 MG(U(UM))[178]1:[153]"YOU GET $75 FOR MORTAGE.":M(PT)[178]M(PT)[170]75
  640. 12180 [141]3840:[142]
  641. 12200 [153]:[153]"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."
  642. 12220 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[153]ML"  "PN$(I)""
  643. 12240 [130]
  644. 12260 [139]ML[178]0[167][153]"YOU HAVE NO MORTAGED PROPERTIES.":[141]3840:[142]
  645. 12280 [153]:[133]"WHICH MORTAGE DO YOU WANT TO LIFT";LF
  646. 12300 [139]LF[179]1[176]LF[177]ML[167][153]"ILLEGAL":[137]12280
  647. 12320 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[139]ML[178]LF[167]FT[178]I
  648. 12340 [130]
  649. 12360 [153]"THE MORTAGE IS FOR $"P(FT,8)
  650. 12380 [153]"YOU MUST PAY $";:PY[178]P(FT,8)[172]1.10:[153]PY
  651. 12400 [139]PY[177]M(PT)[167][153]"YOU DON'T HAVE THE MONEY.":[141]3840:[142]
  652. 12420 M(PT)[178]M(PT)[171]PY:MG(FT)[178]0
  653. 12440 [141]3840:[142]
  654. 12460 [139]AF[167]12500
  655. 12480 [142]
  656. 12500 PL[178]PL(PT):[153]PN$(PL)" WILL NOW BE AUCTIONED"
  657. 12520 [153]"TO THE HIGHEST BIDDER"
  658. 12540 PO[178]3[171]PT:[153]:HB[178]0:PA[178]PT:AC[178]0:[153]:HB[178]0:PA[178]PT:AC[178]0
  659. 12560 PA[178]3[171]PA
  660. 12580 [153]"PLAYER"PA"WHAT'S YOUR BID";:[133]BD:BD[178][181](BD):AC[178]AC[170]1
  661. 12600 [139]BD[178]0[167][145](AC[177]1)[170]2[137]12660,12560
  662. 12620 [139]BD[179][178]HB[167][153]"YOU MUST BID HIGHER THAN"HB"OR BID '0'":[137]12580
  663. 12640 HB[178]BD:HR[178]PA:[137]12560
  664. 12660 [139]HB[178]0[167]12760
  665. 12680 [153]PN$(PL)" GOES TO"
  666. 12700 [153]"PLAYER"HR" FOR $"HB
  667. 12720 M(HR)[178]M(HR)[171]HB:PS(PL)[178]HR
  668. 12740 [142]
  669. 12760 [153]:[153]PN$(PL)" HAS NOT BEEN PURCHASED.":[142]
  670. 12780 [153]"LOAD":[153]"PLAYER #"PT"IS BROKE!!"
  671. 12800 [153]"IF YOU CAN'T RAISE $"[182](M(PT))"THEN YOU ARE OUT OF THE GAME."
  672. 12820 [153]"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL   YOU FINISH TRYING TO";
  673. 12840 [153]" RAISE MONEY"
  674. 12860 [141]3840:[141]8740
  675. 12880 [139]M(PT)[177][178]0[167][142]
  676. 12900 [139]M(PT)[179]0[167][153]"YOU ARE BANKRUPT!!!":PT[178]3[171]PT
  677. 12920 [153]" --PLAYER #"PT"WINS!-- ":[128]
  678. 12940 [153]"GAME OVER"
  679. 12960 [153]"THE WINNER IS ";
  680. 12980 [139]M(1)[177]M(2)[167][153]"PLAYER #1 WITH $"M(1)
  681. 13000 [139]M(2)[177]M(1)[167][153]"PLAYER #2 WITH $"M(2)
  682. 13020 [139] M(2)[178]M(1)[167][153]"NEITHER,  IT'S A TIE!"
  683. 13040 [153]"PLAYER 1 =  $";M(1)
  684. 13060 [153]"PLAYER 2 =  $";M(2)
  685. 13080 [153]
  686. 13100 [151]54296,0:[129]I[178]1[164]6:[151]G(I),0:[128]
  687. 13120 [129]J[178]832[164]939
  688. 13140 [135]I:[151]J,I:[130]
  689. 13160 [131] 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
  690. 13180 [131] 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
  691. 13200 [131] 197,185,0,218,153,0,198,185
  692. 13220 [131] 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
  693. 13240 [131] 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
  694. 13260 [131] 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
  695. 13280 [142]
  696. 13300 [129]P4[178]1[164]2
  697. 13320 Y$[178]""[170]PN$(PL(P4))[170][200]("                ",18[171]([195](PN$(PL(P4)))[171]2))[170]"WAIT"
  698. 13340 MN$[178]"$"[170][202]([196](M(P4)),2)[170]"    WAIT":X[178]13:Y[178]2[172]P4[170]3:Z$[178]Y$:[141]3480
  699. 13360 Y[178]Y[170]1:Z$[178]MN$:[141]3480:[130]:[142]
  700. 13380 [141]13940
  701. 13400 P3[178]PL:[129]I[178]1[164]41:[139]C$[178][200](C$(I),[195](C$))[167]GF[178]1:PL[178]I:[141]4180:GF[178]0
  702. 13420 [130]:PL[178]P3:[142]
  703. 13440 M(PT)[178]M(PT)[170]200:[153]"COLLECTED $200":[142]
  704. 13460 [141] 13940
  705. 13480 DO[178]0:HN[178]0:[129]I[178]PL[164]PL[170]3:[139]PS(I)[179][177](PT)[175]C$[178]C$(I)[167]DO[178]1
  706. 13500 [139]C$[178]C$(I)[167]HN[178]HN[170]H(I)
  707. 13520 [130]
  708. 13540 [139]DO[178]1[176]HN[178]0[167][153]"YOU DON'T OWN HOUSES ON THESE PROPERTIES":[141]3840:[142]
  709. 13560 [153]"#  PROPERTY";[163]25);"HOUSES(5=HOTEL)"
  710. 13580 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[153]CT"   "PN$(I)"";[163]27)H(I)
  711. 13600 [130]
  712. 13620 [133]"WANT TO REMOVE ALL THESE HOUSES";A$:[139][200](A$,1)[178]"Y"[167]13900
  713. 13640 [153]:[133]"WHAT # TO REMOVE A HOUSE FROM.";TP
  714. 13660 [139]TP[178]0[167] [142]
  715. 13680 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
  716. 13700 [130]
  717. 13720 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]13640
  718. 13740 [139]H(T4)[178]0[167][153]"NO HOUSES THERE.":[137]13640
  719. 13760 NN[178]0:NH[178]H(T4):[129]I[178]PL[164]PL[170]3:[139]H(I)[177]NH[167]NN[178]1
  720. 13780 [130]
  721. 13800 [139]NN[167][153]"YOU CAN'T REMOVE THAT HOUSE.":[137]13640
  722. 13820 [153]:[153]"OK.":H(T4)[178]H(T4)[171]1
  723. 13840 HM[178]P(PL,9)[173]2
  724. 13860 [153]"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)[178]M(PT)[170]HM
  725. 13880 [141]3840:[142]
  726. 13900 HM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]HM[178]HM[170](P(PL,9)[173]2)[172]H(I):H(I)[178]0
  727. 13920 [130]:[153]"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)[178]M(PT)[170]HM:[137]13880
  728. 13940 [137]15000:[143] COLOR MENU
  729. 13960 [153] "IN WHAT COLOR GROUP":[153]PG$:[153]:[133]"WHICH ";C$
  730. 13980 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]10780
  731. 14000 [130]I6
  732. 14020 [153]"ILLEGAL GROUP":[137]13940
  733. 14040 [142]
  734. 15000 [151]53280,1:[153]"LOAD"[163]14)"COLOR GROUP"
  735. 15020 [153]:[153]"CHOOSE THE DESIRED PROPERTY COLOR GROUP"
  736. 15030 [153][163]12)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  737. 15040 [153][163]12)"FN1 ) BLACK    THEN"
  738. 15060 [153][163]12)"CONT 2 ) LIGHT BLUEWAIT"
  739. 15080 [153][163]12)"CLR 3 ) MAROON    WAIT"
  740. 15100 [153][163]12)"FOR 4 ) ORANGE    WAIT"
  741. 15120 [153][163]12)" 5 ) RED       WAIT"
  742. 15140 [153][163]12)"SYS 6 ) YELLOW    WAIT"
  743. 15160 [153][163]12)" 7 ) GREEN     WAIT"
  744. 15180 [153][163]12)" 8 ) DARK BLUE WAIT"
  745. 15200 [153]:[153]" PICK A COLOR NUMBER AND PRESS RETURNWAIT ";
  746. 15210 [151]198,0
  747. 15220 [161]C$:[139]C$[177][178]"1"[175]C$[179][178]"9"[167]15238
  748. 15230 [153]" WAITCMD";:[129]I[178]1[164]200:[130]
  749. 15235 [161]C$:[139]C$[177][178]"1"[175]C$[179][178]"9"[167]15238
  750. 15237 [153]" CMD";:[129]I[178]1[164]200:[130]:[137]15220
  751. 15238 [153]C$;
  752. 15239 [161]RE$:[139]RE$[179][177][199](13)[167]15239
  753. 15240 [153]:[153]:[129]I[178]1[164]300:[130]:[151]53280,0
  754. 15241 [139]C$[178]"1"[167]C$[178]"BLACK":[142]
  755. 15260 [139]C$[178]"2"[167]C$[178]"LT. BLUE":[142]
  756. 15280 [139]C$[178]"3"[167]C$[178]"MAROON":[142]
  757. 15300 [139]C$[178]"4"[167]C$[178]"ORANGE":[142]
  758. 15320 [139]C$[178]"5"[167]C$[178]"RED":[142]
  759. 15340 [139]C$[178]"6"[167]C$[178]"YELLOW":[142]
  760. 15360 [139]C$[178]"7"[167]C$[178]"GREEN":[142]
  761. 15380 [139]C$[178]"8"[167]C$[178]"DK. BLUE":[142]
  762. 15400 [137]15000
  763.